home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64 / zei-change lx400 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  751b  |  46 lines
  1. 100 rem programm zur definition eines
  2. 110 rem nlq-zeichens auf dem lx 400
  3. 120 :
  4. 130 open 4,4
  5. 140 print#4,chr$(27);chr$(120);chr$(1);
  6. 150 rem * umschaltung nlq *
  7. 160 :
  8. 170 print#4,chr$(27);":";chr$(0)chr$(0)chr$(0);
  9. 180 rem * kopiert rom ins ram *
  10. 190 :
  11. 200 print#4,chr$(27);"%";chr$(1);
  12. 210 rem * umschalten auf benutzer *
  13. 220 :
  14. 230 rem   goto310
  15. 240 print#4,chr$(27);"&";chr$(0);"??";chr$(128)
  16. 250 rem * zeichen einleiten *
  17. 260 :
  18. 270 :
  19. 280 fori=1to36
  20. 290 readm
  21. 300 print#4,chr$(m);
  22. 310 nexti
  23. 320 print#4,chr$(0);
  24. 330 print#4,"omega : ";
  25. 340 fori=1to10
  26. 350 print#4,"? ";
  27. 360 next
  28. 370 print#4
  29. 380 close4:end
  30. 390 rem daten des nlq-zeichens
  31. 400 :
  32. 410 :
  33. 420 data 170,255,255
  34. 430 data 170,128,  1
  35. 440 data 170,128,  1
  36. 450 data 170,128,  1
  37. 460 data 170,128,  1
  38. 470 data 170,128,  1
  39. 480 data 170,128,  1
  40. 490 data 170,128,  1
  41. 500 data 170,128,  1
  42. 510 data 170,255,255
  43. 520 data   0,  0,  0
  44. 530 data   0,  0,  0
  45. 540 data 0
  46.